home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs25.d81 / xmas.arc / WINTER SCENE.C (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  8KB  |  229 lines
  1. 5 REM PUT GRAPHICS CHARACTERS IN RAM
  2. 10 POKE 52,48:POKE56,48:CLR
  3. 20 POKE56334,PEEK(56334)AND254
  4. 30 POKE1,PEEK(1)AND 251
  5. 40 FORI=0TO511:POKEI+12288,PEEK(I+53760):NEXT
  6. 50 POKE1,PEEK(1)OR4
  7. 60 POKE56334,PEEK(56334)OR1
  8. 65 V=53248:POKEV+21,0:POKEV+23,0:POKEV+29,0
  9. 70 PRINT"[147]"
  10. 80 PRINT "PATIENCE PLEASE "
  11. 90 POKE53280,7
  12. 110 FORI=12640 TO12799:READA:POKEI,A:NEXT
  13. 111 DATA 255,127,31,3,0,0,0,0
  14. 112 DATA 255,255,255,255,127,31,3,0
  15. 113 DATA 255,254,240,192,0,0,0,0
  16. 114 DATA 255,255,255,255,252,224,192,128
  17. 115 DATA 192,96,48,24,14,3,0,0
  18. 116 DATA 0,0,0,0,0,128,240,63
  19. 117 DATA 3,6,12,24,112,192,0,0
  20. 118 DATA 0,0,0,0,0,1,15,252
  21. 119 DATA 63,240,128,0,0,0,0,0
  22. 120 DATA 0,0,3,14,24,48,96,192
  23. 121 DATA 252,15,1,0,0,0,0,0
  24. 122 DATA 0,0,192,112,24,12,6,3
  25. 123 DATA 255,255,255,255,255,255,255,255
  26. 124 DATA 0,0,0,0,24,60,126,255
  27. 125 DATA 255,248,192,0,0,0,0,0
  28. 126 DATA 255,255,255,254,248,224,192,128
  29. 127 DATA 255,31,3,0,0,0,0,0
  30. 128 DATA 255,255,255,127,31,7,3,1
  31. 129 DATA 1,3,7,15,31,63,127,255
  32. 130 DATA128,192,224,240,248,252,254,255
  33. 216 POKE2043,204
  34. 217 FORX=125 TO135:POKEV+6,X:NEXT
  35. 218 FORX=135 TO160:POKEV+6,X:POKEV+7,X-10:NEXT
  36. 220 POKE53281,1: REM BACKGROUND COLOR TO WHITE
  37. 305 FOR I=12800 TO 13759:READ A:POKEI,A:NEXT
  38. 310 REM SKIER1 HORIZONTAL LEFT EXTENDED
  39. 311 DATA 0,64,0,1,85,0,1,80,64,2,160,64,2,160,0,2,160,0,0,60,0
  40. 312 DATA 28,60,0,31,255,0,11,255,64,8,60,64,2,60,128,2,60,128,0,140,32
  41. 313 DATA 0,140,32,3,35,8,3,35,8,76,4,194,76,4,194,85,85,85,85,85,85,0
  42. 315 REM SKIER2 HORIZONTAL LEFT COMPACT
  43. 316 DATA0,64,0,1,85,0,1,80,64,2,160,64,2,160,0,2,160,0,0,60,0
  44. 317 DATA 0,60,0,0,60,0,1,252,0,1,252,0,0,188,0,0,188,0,0,44,0
  45. 318 DATA0,44,0,0,56,0,0,56,0,5,50,0,5,50,0,5,85,64,5,85,64,0
  46. 320 REM SKIER3 DOUBLEPOLE LEFT FORWARD
  47. 321 DATA1,0,0,5,85,0,5,65,0,10,129,0,10,128,0,10,128,0,0,240,0
  48. 322 DATA0,240,0,0,240,0,31,252,0,31,252,0,8,15,0,8,15,0,2,12,0
  49. 323 DATA 2,12,0,0,140,16,0,140,80,1,109,64,1,101,0,1,84,0,1,80,0,0
  50. 325 REM SKIER4 DOUBLEPOLE LEFT COMPACT
  51. 326 DATA 0,0,0,0,0,0,4,0,0,21,80,0,21,4,0,42,4,0,42,0,0
  52. 327 DATA 42,0,0,3,240,0,3,240,0,3,252,0,3,15,0,3,15,0,3,108,0
  53. 328 DATA 0,104,0,0,10,16,0,2,144,1,65,160,1,69,32,1,84,0,1,80,0,0
  54. 330 REM SKIER5 RIGHT DOWNHILL
  55. 331 DATA 0,0,0,0,0,16,0,5,84,0,16,85,0,16,168,0,0,168,0,128,168
  56. 332 DATA 0,163,192,0,43,192,4,10,192,5,14,128,1,15,144,1,127,16,0,127,0
  57. 333 DATA 0,80,0,0,16,0,0,20,0,0,5,0,0,5,0,0,0,0,0,0,0,0
  58. 335 REM SKIER6 TUMBLE
  59. 336 DATA 0,0,0,0,68,0,0,68,0,1,1,0,1,1,0,4,0,64,4,8,64
  60. 337 DATA 28,8,208,28,32,208,92,32,212,83,13,20,82,143,20,66,252,6,6,240,10
  61. 338 DATA 7,240,40,3,240,160,26,253,128,90,253,0,90,0,0,26,0,0,26,0,0,0
  62. 340 REM SKIER7 UPHILL LEFT COMPACT
  63. 341 DATA 0,4,0,0,21,80,0,21,4,0,42,4,0,42,0,0,42,0,0,3,192
  64. 342 DATA 0,3,192,0,7,192,0,71,192,0,75,192,0,75,192,0,91,0,0,27,0
  65. 343 DATA 0,27,0,0,11,0,0,9,0,0,1,0,0,1,64,0,0,64,0,0,64,0
  66. 345 REM SKIER8 UPHILL LEFT EXTENDED
  67. 346 DATA 0,64,0,1,127,0,1,96,64,2,160,64,2,160,0,18,160,0,17,60,0
  68. 347 DATA 17,252,0,22,252,0,6,60,0,5,188,0,1,188,0,1,32,0,0,96,0
  69. 348 DATA 0,96,0,0,32,0,0,36,0,0,4,0,0,5,0,0,1,0,0,1,0,0
  70. 350 REM SKIER9 UPHILL RIGHT COMPACT
  71. 351 DATA 0,16,0,5,84,0,16,84,0,16,168,0,0,168,0,0,168,0,3,192,0
  72. 352 DATA 3,192,0,3,208,0,3,209,0,3,225,0,3,225,0,0,229,0,0,228,0
  73. 353 DATA 0,228,0,0,224,0,0,96,0,0,64,0,1,64,0,1,64,0,1,0,0,0
  74. 355 REM SKIER10 UPHILL RIGHT EXTENDED
  75. 356 DATA 0,1,0,0,127,64,1,5,64,1,10,128,0,10,128,0,10,132,0,63,69
  76. 357 DATA 0,63,68,0,63,148,0,60,144,0,62,80,0,62,64,0,9,64,0,9,0
  77. 358 DATA 0,9,0,0,8,0,0,24,0,0,16,0,0,80,0,0,64,0,0,64,0,0
  78. 360 REM SKIER11 RIGHT HORIZONTAL
  79. 361 DATA 0,1,0,0,85,64,1,5,64,1,10,128,0,10,128,0,10,128,0,60,0
  80. 362 DATA 0,60,0,0,60,0,0,63,64,0,63,64,0,62,0,0,62,0,0,8,0
  81. 363 DATA 0,8,0,0,44,0,0,44,0,0,140,80,0,140,80,1,85,80,1,85,80,0
  82. 365 REM BANNER PART ONE
  83. 366 DATA 3,68,68,3,51,51,4,0,0,5,1,21,49,69,21,49,85,16,65,17,20
  84. 367 DATA 65,1,20,49,1,16,49,1,21,5,1,21,4,0,0,3,51,51,3,68,68
  85. 368 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  86. 370 REM BANNER PART TWO
  87. 371 DATA 68,68,68,51,51,51,0,0,0,21,21,17,21,21,17,17,17,21,17,17,21
  88. 372 DATA 21,21,1,16,16,1,17,17,5,17,17,5,0,0,0,51,51,51,68,68,68
  89. 373 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  90. 375 REM BANNER PART THREE
  91. 376 DATA 68,68,68,51,51,51,0,0,0,16,68,4,16,69,20,1,5,84,4,4,68
  92. 377 DATA 1,4,4,4,4,4,16,68,4,16,68,4,0,0,0,51,51,51,68,68,68
  93. 378 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  94. 380 REM BANNER PART FOUR
  95. 381 DATA 68,68,64,51,51,64,0,0,48,20,21,48,85,21,4,65,16,4,65,21,3
  96. 382 DATA 85,21,3,85,1,4,65,21,4,65,21,48,0,0,48,51,51,64,68,68,64
  97. 383 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  98. 499 POKE53272,(PEEK(53272)AND240)+12
  99. 500 PRINT"[147]"
  100. 501 PRINT"[145]8888888888888888888888888888888888888888"
  101. 502 PRINT"[145]8888888888888888888888888888888888888888"
  102. 510 PRINT"[145]8888888888888888888888888888888888888888"
  103. 511 PRINT"[145]8888888888888888888888888888888888888888"
  104. 512 PRINT"[145]88888888888888;=888888888888888888888888"
  105. 513 PRINT"[145]888888888888;:  <=8888888888888888888888"
  106. 514 PRINT"[145]8888;=8888;:        _8888888;:  <=888888"
  107. 515 PRINT"[145]88;:  <=;:            _888)       <=8888"
  108. 516 PRINT"[145]        M                            9  "
  109. 517 PRINT"[145]         M       9         54#67    >8? "
  110. 518 PRINT"[145]        9 M     >8?       N     M   >8? "
  111. 519 PRINT"[145]       >8? M    >8?      N       M  >8? "
  112. 520 PRINT"[145]       >8?  M   >8?     N         M  8  "
  113. 521 PRINT"[145]       >8?   M   8     N      9    M 8  "
  114. 522 PRINT"[145]        8     #M 8    N      >8?    M   "
  115. 523 PRINT"[145]        8       M    N       >8?     M  "
  116. 524 PRINT"[145]                 0132        >8?      M "
  117. 525 PRINT"[145]   8>?                 9      8        M"
  118. 526 PRINT"[145]   888?     9         >8?     8         "
  119. 527 PRINT"[145]  >8888?   >8?        >8?               "
  120. 528 PRINT"[145]  888888   >8?        >8?               "
  121. 529 PRINT"[145]  8[88[8   >8?         8                "
  122. 530 PRINT"[145]  888888    8          8                "
  123. 531 PRINT"[145]  8[8888    8                           "
  124. 532 PRINT"[145]  888888                                "
  125. 533 PRINT"[145]CCCCCK                                  "
  126. 545 A=55296
  127. 555 FORI=55296+6*40TO55296+25*40:POKEI,9:NEXTI:REM BROWN FOR THE LOWER PART
  128. 560 Y=A+40*6+36
  129. 561 GOSUB 1900
  130. 562 Y=A+40*7+16
  131. 563 GOSUB 1900
  132. 564 Y=A+40*8+7
  133. 565 GOSUB 1900
  134. 566 Y=A+40*11+29
  135. 567 GOSUB 1900
  136. 568 Y=A+40*15+22
  137. 569 GOSUB 1900
  138. 570 Y=A+40*16+11
  139. 571 GOSUB 1900
  140. 574 FORI=0TO2:FORJ=0TO5:POKE55898+40*I+J,7:NEXTJ:NEXTI
  141. 575 POKE55899,9:POKE55939,9
  142. 580 POKE56141,8:POKE56181,8
  143. 700 V=53248:POKEV+28,255:POKEV+42,7:POKEV+37,2:POKEV+38,5
  144. 705 P=200
  145. 710 POKEV+16,8:POKEV+7,78:POKEV+21,8
  146. 711 FORX=90TO42STEP-6:POKEV+6,X
  147. 712 POKE 2043,P:FORT=1TO200:NEXTT:P=P+1:IFP>201THENP=200
  148. 713 NEXT
  149. 715 FOR X=42TO0STEP-6:POKEV+6,X:POKEV+7,64+2/6*X
  150. 720 POKE2043,P:FORT=1TO200:NEXTT:P=P+1:IFP>201THENP=200
  151. 721 NEXT
  152. 725 POKEV+16,0:P=202
  153. 730 FORX=255TO200STEP-6:POKEV+6,X:POKEV+7,155-2/6*X
  154. 735 POKE2043,P:FORT=1TO100:NEXT:P=P+1:IFP>203THEN P=202
  155. 736 NEXT
  156. 740 P=200
  157. 745 FORX=198TO132STEP-6:POKEV+6,X:POKEV+7,2/6*X+20
  158. 750 POKE2043,P:FORT=1TO200:NEXTT:P=P+1:IFP>201THENP=200
  159. 751 NEXT
  160. 754 P=202
  161. 755 FORX=132TO84STEP-6:POKEV+6,X:POKEV+7,108-2/6*X
  162. 760 POKE2043,P:FORT=1TO100:NEXTT:P=P+1:IFP>203THENP=202
  163. 761 NEXT
  164. 762 FORT=1TO1000:NEXTT
  165. 765 FORX=80 TO125:POKEV+6,X:POKEV+7,X
  166. 770 POKE2043,204
  167. 771 NEXT
  168. 775 FORX=125TO160:POKEV+6,X:NEXT
  169. 780 POKE2043,205
  170. 785 FORX=125TO150:POKEV+7,X:NEXT
  171. 790 FORT=1TO1500:NEXTT
  172. 800 P=206
  173. 805 FORX=155 TO92STEP-3:POKEV+6,X:POKEV+7,X
  174. 810 POKE2043,P:FORT=1TO200:NEXTT:P=P+1:IFP>207THENP=206
  175. 811 NEXT
  176. 815 FORX=92 TO 125:POKEV+6,X:POKEV+7,X:POKE2043,204:NEXT
  177. 816 FORX=125 TO130:POKEV+6,X:NEXT
  178. 817 FORX=130TO155:POKEV+6,X:POKEV+7,X-5:NEXT
  179. 820 POKE2043,210
  180. 825 FORX=155 TO 170:POKEV+6,X:NEXT
  181. 835 FORX=170 TO185:POKEV+6,X:POKEV+7,320-X
  182. 836 POKE2043,208
  183. 840 FORT=0TO3*(X-170):NEXTT
  184. 841 NEXT
  185. 845 P=208
  186. 850 FORX=185TO235STEP3:POKEV+6,X:POKEV+7,320-X
  187. 855 POKE2043,P:P=P+1:IFP>209 THENP=208
  188. 860 FORT=1TO200:NEXT
  189. 861 NEXT
  190. 864 POKE2043,210:POKEV+7,82
  191. 865 FORX=235 TO255:POKEV+6,X
  192. 866 FORT=0TO10:NEXTT
  193. 867 NEXT
  194. 870 POKE2043,204:POKEV+16,8
  195. 875 FORX=0TO90:POKEV+6,X:POKEV+7,X+80:NEXT
  196. 879 FOR I=0TO3:POKEV+8+2*I,255:NEXT
  197. 880 P=200:POKEV+16,248
  198. 881 FORI=0TO3:POKE2044+I,211+I:NEXT
  199. 882 FORI=0TO4:POKEV+7+2*I,216:NEXT
  200. 883 POKEV+21,248
  201. 884 FOR X=90 TO6 STEP-6:POKE2043,P
  202. 885 FOR I=0TO4:POKEV+6+2*I,X+24*I:NEXT
  203. 890 FORT=1TO200:NEXTT:P=P+1:IFP>201THENP=200
  204. 895 NEXT
  205. 905 POKEV+6,255: POKEV+16,240
  206. 910 FOR X=255 TO102STEP-6
  207. 915 A=X+24:B=X+48:C=X+72:D=X+96
  208. 920 IFA>255 THENA=A-255:GOTO923
  209. 921 IFA=255 THENPOKEV+8,A:POKEV+16,224
  210. 923 IFB>255 THENB=B-255:GOTO926
  211. 924 IFB=255 THENPOKEV+10,B:POKEV+16,192
  212. 926 IFC>255 THENC=C-255:GOTO929
  213. 927 IFC=255 THENPOKEV+12,C:POKEV+16,128
  214. 929 IFD>255 THEND=D-255:GOTO935
  215. 930 IF D=255 THENPOKEV+14,D:POKEV+16,0
  216. 935 POKE2043,P:POKEV+6,X:POKEV+8,A:POKEV+10,B:POKEV+12,C:POKEV+14,D
  217. 940 FORT=1TO200:NEXTT:P=P+1:IFP>201 THENP=200
  218. 945 NEXT
  219. 950 FORX=102TO 0 STEP-6:POKE2043,P:POKEV+6,X
  220. 955 FORT=1TO200:NEXTT:P=P+1:IFP>201THENP=200
  221. 960 NEXT
  222. 965 FORI=0TO3:POKEV+8+2*I,90+48*I:POKEV+9+2*I,120:NEXT
  223. 970 POKEV+29,240:POKEV+23,240
  224. 990 FOR I=1TO2000:NEXTI
  225. 991 PRINT"[147]"
  226. 992 POKE53272,(PEEK(53272)AND240)+4
  227. 995 END
  228. 1900 FOR I=0TO3:FOR J=0TO2:POKEY+40*I+J,5:NEXT J:NEXTI:RETURN
  229.